home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / utility / nmail28u / _SETUP.1 / NETMAIL.EXE / 0 / RCDATA / TSENDMAILFORM / TSENDMAILFORM.txt
Text File  |  1999-09-10  |  4KB  |  167 lines
  1. object SendMailForm: TSendMailForm
  2.   Left = 231
  3.   Top = 220
  4.   BorderStyle = bsDialog
  5.   Caption = 'Sending Message'
  6.   ClientHeight = 102
  7.   ClientWidth = 520
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   Position = poScreenCenter
  14.   OnClose = FormClose
  15.   OnShow = FormShow
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Status: TLabel
  19.     Left = 17
  20.     Top = 12
  21.     Width = 17
  22.     Height = 13
  23.     Caption = '....'
  24.     Font.Charset = DEFAULT_CHARSET
  25.     Font.Color = clBlack
  26.     Font.Height = -11
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = [fsBold]
  29.     ParentFont = False
  30.   end
  31.   object StatusBk: TPanel
  32.     Left = 14
  33.     Top = 43
  34.     Width = 497
  35.     Height = 24
  36.     BevelOuter = bvNone
  37.     BorderStyle = bsSingle
  38.     Color = clWhite
  39.     TabOrder = 0
  40.     object StatusBar: TPanel
  41.       Left = 0
  42.       Top = 0
  43.       Width = 0
  44.       Height = 25
  45.       BevelOuter = bvNone
  46.       Color = clBlue
  47.       TabOrder = 0
  48.     end
  49.   end
  50.   object Stop: TButton
  51.     Left = 432
  52.     Top = 76
  53.     Width = 79
  54.     Height = 23
  55.     Caption = 'Stop'
  56.     ModalResult = 2
  57.     TabOrder = 1
  58.   end
  59.   object SendMail1: SendMail
  60.     SMTP_Port = 25
  61.     Action = None
  62.     OnMailInfo = SendMail1MailInfo
  63.     OnMailError = SendMail1MailError
  64.     KeepConnectionOpen = True
  65.     WinsockStarted = False
  66.     Version = 'SendMail 1.3.9'
  67.     TimeoutConnect = 30
  68.     TimeoutArp = 20
  69.     OnDone = SendMail1Done
  70.     Left = 28
  71.     Top = 53
  72.   end
  73.   object QSendQueued: TQuery
  74.     DatabaseName = 'VistaMail'
  75.     Left = 342
  76.     Top = 54
  77.   end
  78.   object QMakeMessage: TQuery
  79.     DatabaseName = 'VistaMail'
  80.     Left = 202
  81.     Top = 54
  82.   end
  83.   object QMakeAdress: TQuery
  84.     CachedUpdates = True
  85.     DatabaseName = 'VistaMail'
  86.     SQL.Strings = (
  87.       'select * from adress5,dbadrmes'
  88.       'where adress5.PosA = dbadrmes.PosA ')
  89.     Left = 272
  90.     Top = 56
  91.     object QMakeAdressLastName: TStringField
  92.       FieldName = 'LastName'
  93.       Origin = '"adress5.DB".LastName'
  94.       Size = 40
  95.     end
  96.     object QMakeAdressFirstName: TStringField
  97.       FieldName = 'FirstName'
  98.       Origin = '"adress5.DB".FirstName'
  99.       Size = 40
  100.     end
  101.     object QMakeAdressCompany: TStringField
  102.       FieldName = 'Company'
  103.       Origin = '"adress5.DB".Company'
  104.       Size = 50
  105.     end
  106.     object QMakeAdressTypeAdress: TSmallintField
  107.       FieldName = 'TypeAdress'
  108.       Origin = '"adress5.DB".TypeAdress'
  109.     end
  110.     object QMakeAdressLN: TStringField
  111.       FieldName = 'LN'
  112.       Origin = '"adress5.DB".LN'
  113.       Size = 1
  114.     end
  115.     object QMakeAdressHomeEMail: TStringField
  116.       FieldName = 'HomeEMail'
  117.       Origin = '"adress5.DB".HomeEMail'
  118.       Size = 50
  119.     end
  120.     object QMakeAdressPosA: TIntegerField
  121.       FieldName = 'PosA'
  122.       Origin = '"adress5.DB".PosA'
  123.     end
  124.     object QMakeAdressFN: TStringField
  125.       FieldName = 'FN'
  126.       Origin = '"adress5.DB".FN'
  127.       Size = 1
  128.     end
  129.     object QMakeAdressFComp: TStringField
  130.       FieldName = 'FComp'
  131.       Origin = '"adress5.DB".FComp'
  132.       Size = 1
  133.     end
  134.     object QMakeAdressVybor: TBooleanField
  135.       FieldName = 'Vybor'
  136.       Origin = '"adress5.DB".Vybor'
  137.     end
  138.     object QMakeAdressDescription: TStringField
  139.       FieldName = 'Description'
  140.       Origin = '"adress5.DB".Description'
  141.       Size = 60
  142.     end
  143.     object QMakeAdressURL: TStringField
  144.       FieldName = 'URL'
  145.       Origin = '"adress5.DB".URL'
  146.       Size = 255
  147.     end
  148.     object QMakeAdressBlockAdress: TBooleanField
  149.       FieldName = 'BlockAdress'
  150.       Origin = '"adress5.DB".BlockAdress'
  151.     end
  152.     object QMakeAdressStopList: TBooleanField
  153.       FieldName = 'StopList'
  154.       Origin = '"adress5.DB".StopList'
  155.     end
  156.   end
  157.   object QdbMess: TQuery
  158.     DatabaseName = 'VistaMail'
  159.     SQL.Strings = (
  160.       'Update  dbMess set'
  161.       'InOutTrash=:a0  where PosM=:a1')
  162.     Params.Data = {010002000261300003040000000000000002613100030400000000000000}
  163.     Left = 142
  164.     Top = 56
  165.   end
  166. end
  167.